library("fastLink")
matches.out <- fastLink( dfA = not.found.within, dfB = voter.file,
						 varnames = c("first_name", "middle_initial", "last_name", "age"),
						 stringdist.match = c("first_name", "last_name"),
						 numeric.match = c("age"),
						 cut.a = 0.94,
						 cut.a.num = 0.5,
						 threshold.match = 0.99
					   )